#!perl

use 5.010;
use strict;
use warnings;

use Test::More tests => 2;

use JasPerl::Util::Date;
use JasPerl::Util::Locale;
use JasPerl::Util::TimeZone;
use JasPerl::JSTL::Fmt::DateFormat qw(:styles);

use Time::Piece;
use DateTime;

my $now = JasPerl::Util::Date->new();

my $locale = JasPerl::Util::Locale->get_default();
my $format = JasPerl::JSTL::Fmt::DateFormat->get_format(DEFAULT);
isa_ok $format, 'JasPerl::JSTL::Fmt::DateFormat';

$format->set_time_zone(JasPerl::Util::TimeZone->get_default());

warn $format->format($now);
warn $format->format(JasPerl::Util::Date->from(Time::Piece->new));
warn $format->format(JasPerl::Util::Date->from(DateTime->now));
